Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2023 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
Chd|====================================================================
Chd|  FMT_DEF                       source/starter/fmt_def.F      
Chd|-- called by -----------
Chd|        CONTRL                        source/starter/contrl.F       
Chd|-- calls ---------------
Chd|====================================================================
      SUBROUTINE FMT_DEF(INVERS,IFIX)
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "scr17_c.inc"
C-----------------------------------------------
C   G l o b a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER INVERS,IFIX
C======================================================================|
      IF (INVERS<50.OR.IFIX==2) THEN
        LFIELD                    = 8
        FMT_I                     = "(I8)"
        FMT_2I                    = "(2I8)"
        FMT_3I                    = "(3I8)"
        FMT_4I                    = "(4I8)"
        FMT_5I                    = "(5I8)"
        FMT_6I                    = "(6I8)"
        FMT_7I                    = "(7I8)"
        FMT_8I                    = "(8I8)"
        FMT_9I                    = "(9I8)"
        FMT_10I                   = "(10I8)"
        FMT_I_X_A                 = "(I8,8X,A)"
        FMT_I_X_F                 = "(I8,8X,F16.0)"
        FMT_I_X_F_2I_2F           = "(I8,8X,F16.0,2I8,2F16.0)"
        FMT_I_X_F_I_X_2F          = "(I8,8X,F16.0,I8,8X,2F16.0)"
        FMT_I_X_F_4I              = "(I8,8X,F16.0,4I8)"
        FMT_I_X_2F                = "(I8,8X,2F16.0)"
        FMT_I_X_2F_3I             = "(I8,8X,2F16.0,3I8)"
        FMT_I_X_3F                = "(I8,8X,3F16.0)"
        FMT_I_X_3F_I              = "(I8,8X,3F16.0,I8)"
        FMT_I_X_3F_2I             = "(I8,8X,3F16.0,2I8)"
        FMT_I_X_4F                = "(I8,8X,4F16.0)"
        FMT_I_2X_F                = "(I8,16X,F16.0)"
        FMT_I_3X_F                = "(I8,24X,F16.0)"
        FMT_I_3X_3F               = "(I8,24X,3F16.0)"
        FMT_I_5X_2F               = "(I8,40X,2F16.0)"
        FMT_I_7X_F                = "(I8,56X,F16.0)"
        FMT_I_F                   = "(I8,F16.0)"
        FMT_I_F_I                 = "(I8,F16.0,I8)"
        FMT_I_F_I_2F              = "(I8,F16.0,I8,2F16.0)"
        FMT_I_F_I_3F              = "(I8,F16.0,I8,3F16.0)"
        FMT_I_F_X_I               = "(I8,F16.0,8X,I8)"
        FMT_I_F_2X_I              = "(I8,F16.0,16X,I8)"
        FMT_I_F_3X_I_F            = "(I8,F16.0,24X,I8,F16.0)"
        FMT_I_F_6X_I              = "(I8,F16.0,48X,I8)"
        FMT_I_2F                  = "(I8,2F16.0)"
        FMT_I_2F_I_2F             = "(I8,2F16.0,I8,2F16.0)"
        FMT_I_2F_I                = "(I8,2F16.0,I8)"
        FMT_I_2F_2I                = "(I8,2F16.0,2I8)"
        FMT_I_2F_3I               = "(I8,2F16.0,3I8)"
        FMT_I_3F                  = "(I8,3F16.0)"
        FMT_I_3F_X_I              = "(I8,3F16.0,8X,I8)"
        FMT_I_4F                  = "(I8,4F16.0)"
        FMT_I_4F_I                = "(I8,4F16.0,I8)"
        FMT_I_3F_I                = "(I8,3F16.0,I8)"
        FMT_I_3F_2I               = "(I8,3F16.0,2I8)"
        FMT_I_3F_3I               = "(I8,3F16.0,3I8)"
        FMT_2I_X_3I_3X_I          = "(2I8,8X,3I8,24X,I8)"
        FMT_2I_X_3F_2I            = "(2I8,8X,3F16.0,2I8)"
        FMT_2I_X_F                = "(2I8,8X,F16.0)"
        FMT_2I_6X_F               = "(2I8,48X,F16.0)"
        FMT_2I_F                  = "(2I8,F16.0)"
        FMT_2I_F_I                = "(2I8,F16.0,I8)"
        FMT_2I_F_2I               = "(2I8,F16.0,2I8)"
        FMT_2I_F_2I_F             = "(2I8,F16.0,2I8,F16.0)"
        FMT_2I_F_2I_F_I           = "(2I8,F16.0,2I8,F16.0,I8)"
        FMT_2I_F_3I_F             = "(2I8,F16.0,3I8,F16.0)"
        FMT_2I_F_3I_F_I           = "(2I8,F16.0,3I8,F16.0,I8)"
        FMT_2I_F_I_F_I            = "(2I8,F16.0,I8,F16.0,I8)"
        FMT_2I_F_I_F_2I           = "(2I8,F16.0,I8,F16.0,2I8)"
        FMT_2I_F_I_F              = "(2I8,F16.0,I8,F16.0)"
        FMT_2I_F_I_X_2F           = "(2I8,F16.0,I8,8X,2F16.0)"
        FMT_2I_2F                 = "(2I8,2F16.0)"
        FMT_2I_2F_2X_I            = "(2I8,2F16.0,16X,I8)"
        FMT_2I_2F_I               = "(2I8,2F16.0,I8)"
        FMT_2I_2F_3I              = "(2I8,2F16.0,3I8)"
        FMT_2I_2F_4I              = "(2I8,2F16.0,4I8)"
        FMT_2I_3F                 = "(2I8,3F16.0)"
        FMT_2I_3F_I               = "(2I8,3F16.0,I8)"
        FMT_2I_3F_2I              = "(2I8,3F16.0,2I8)"
        FMT_2I_4F                 = "(2I8,4F16.0)"
        FMT_2I_2X_I               = "(2I8,16X,I8)"
        FMT_2I_2X_F_3X_I          = "(2I8,16X,F16.0,24X,I8)"
        FMT_2I_2X_2F_X_I          = "(2I8,16X,2F16.0,8X,I8)"
        FMT_2I_4X_I               = "(2I8,32X,I8)"
        FMT_2I_A                  = "(2I8,A)"
        FMT_2I_A_2I               = "(2I8,A8,2I8)"
        FMT_2I_A_4I               = "(2I8,A8,4I8)"
        FMT_3I_A                  = "(3I8,A8)"
        FMT_3I_F                  = "(3I8,F16.0)"
        FMT_3I_2F                  = "(3I8,2F16.0)"
        FMT_3I_F_I_F              = "(3I8,F16.0,I8,F16.0)"
        FMT_3I_X_4I               = "(3I8,8X,4I8)"
        FMT_3I_X_F                = "(3I8,8X,F16.0)"
        FMT_3I_X_4F                = "(3I8,8X,4F16.0)"
        FMT_4I_2F                 = "(4I8,2F16.0)"
        FMT_4I_4X_F               = "(4I8,32X,F16.0)"
        FMT_4I_X_I_2X_F           = "(4I8,8X,I8,16X,F16.0)"
        FMT_4I_X_I_2F             = "(4I8,8X,I8,2F16.0)"
        FMT_4I_5X_I               = "(4I8,40X,I8)"
        FMT_4I_F_3I               = "(4I8,F16.0,3I8)"
        FMT_4I_F_4I               = "(4I8,F16.0,4I8)"
        FMT_4I_2F_I               = "(4I8,2F16.0,I8)"
        FMT_4I_2F_2I              = "(4I8,2F16.0,2I8)"
        FMT_4I_2F_X_I             = "(4I8,2F16.0,8X,I8)"
        FMT_4I_3F                 = "(4I8,3F16.0)"
        FMT_4I_X_3F                 = "(4I8,8X,3F16.0)"
        FMT_4I_5X_I               = "(4I8,40X,I8)"
        FMT_4I_F_I                = "(4I8,F16.0,I8)"
        FMT_4I_2X_2F              = "(4I8,16X,2F16.0)"
        FMT_5I_A_2F               = "(5I8,A8,2F16.0)"
        FMT_5I_X_2F               = "(5I8,8X,2F16.0)"
        FMT_5I_2X_3I              = "(5I8,16X,3I8)"
        FMT_5I_2X_3F              = "(5I8,16X,3F16.0)"
        FMT_5I_3X_F               = "(5I8,24X,F16.0)"
        FMT_5I_F                  = "(5I8,F16.0)"
        FMT_5I_F_3I               = "(5I8,F16.0,3I8)"
        FMT_5I_2F                 = "(5I8,2F16.0)"
        FMT_6I_2X_F               = "(6I8,16X,F16.0)"
        FMT_6I_2F                 = "(6I8,2F16.0)"
        FMT_7I_X_F                = "(7I8,8X,F16.0)"
        FMT_7I_2X_I               = "(7I8,16X,I8)"
        FMT_8I_X_I                = "(8I8,8X,I8)"
        FMT_8I_F                  = "(8I8,F16.0)"
        FMT_I_F_I_F_I_F           = "(3(I8,F16.0))"
        FMT_F                     = "(F16.0)"
        FMT_2F                    = "(2F16.0)"
        FMT_3F                    = "(3F16.0)"
        FMT_4F                    = "(4F16.0)"
        FMT_5F                    = "(5F16.0)"
        FMT_6F                    = "(6F16.0)"
        FMT_F_I                   = "(F16.0,I8)"
        FMT_F_I_F                 = "(F16.0,I8,F16.0)"
        FMT_F_I_F_I_F             = "(F16.0,I8,F16.0,I8,F16.0)"
        FMT_F_I_2F                = "(F16.0,I8,2F16.0)"
        FMT_F_I_2F_I              = "(F16.0,I8,2F16.0,I8)"
        FMT_F_I_X_F_I_F           = "(F16.0,I8,8X,F16.0,I8,F16.0)"
        FMT_F_I_X_F_I             = "(F16.0,I8,8X,F16.0,I8)"
        FMT_F_2I                  = "(F16.0,2I8)"
        FMT_F_2I_F_I_F            = "(F16.0,2I8,F16.0,I8,F16.0)"
        FMT_I_2F_I_F              = "(I8,2F16.0,I8,F16.0)"
        FMT_F_3I                  = "(F16.0,3I8)"
        FMT_F_3I_2F               = "(F16.0,3I8,2F16.0)"
        FMT_F_4I                  = "(F16.0,4I8)"
        FMT_F_4I_2F               = "(F16.0,4I8,2F16.0)"
        FMT_F_3X_I                = "(F16.0,24X,I8)"
        FMT_F_3X_2I               = "(F16.0,24X,2I8)"
        FMT_F_3X_3I               = "(F16.0,24X,3I8)"
        FMT_F_3X_3I_F             = "(F16.0,24X,3I8,F16.0)"
        FMT_F_2X_F_I              = "(F16.0,16X,F16.0,I8)"
        FMT_F_2X_I                = "(F16.0,16X,I8)"
        FMT_F_2X_2I               = "(F16.0,16X,2I8)"
        FMT_2F_I                  = "(2F16.0,I8)"
        FMT_2F_I_F_I              = "(2F16.0,I8,F16.0,I8)"
        FMT_2F_I_F                = "(2F16.0,I8,F16.0)"
        FMT_2F_I_2F               = "(2F16.0,I8,2F16.0)"
        FMT_2F_I_2F_I             = "(2F16.0,I8,2F16.0,I8)"
        FMT_2F_I_X_F              = "(2F16.0,I8,8X,F16.0)"
        FMT_2F_2I                 = "(2F16.0,2I8)"
        FMT_2F_3I                 = "(2F16.0,3I8)"
        FMT_2F_4I                 = "(2F16.0,4I8)"
        FMT_2F_5I                 = "(2F16.0,5I8)"
        FMT_2F_6I                 = "(2F16.0,6I8)"
        FMT_2F_2I_F               = "(2F16.0,2I8,F16.0)"
        FMT_2F_2I_F_I             = "(2F16.0,2I8,F16.0,I8)"
        FMT_2F_2I_F_2I            = "(2F16.0,2I8,F16.0,2I8)"
        FMT_2F_X_I_2F             = "(2F16.0,8X,I8,2F16.0)"
        FMT_2F_2X_2F              = "(2F16.0,16X,2F16.0)"
        FMT_2F_2X_I_F_I           = "(2F16.0,16X,I8,F16.0,I8)"
        FMT_2F_2X_F               = "(2F16.0,16X,F16.0)"
        FMT_2F_4X_F               = "(2F16.0,32X,F16.0)"
        FMT_2F_5X_I               = "(2F16.0,40X,I8)"
        FMT_3F                    = "(3F16.0)"
        FMT_3F_I                  = "(3F16.0,I8)"
        FMT_3F_I_F                = "(3F16.0,I8,F16.0)"
        FMT_3F_I_F_I              = "(3F16.0,I8,F16.0,I8)"
        FMT_3F_2I                 = "(3F16.0,2I8)"
        FMT_3F_2I_F               = "(3F16.0,2I8,F16.0)"
        FMT_3F_2I_X_I             = "(3F16.0,2I8,8X,I8)"
        FMT_3F_3I                 = "(3F16.0,3I8)"
        FMT_3F_4I                 = "(3F16.0,4I8)"
        FMT_3F_X_I                = "(3F16.0,8X,I8)"
        FMT_3F_2X_I               = "(3F16.0,16X,I8)"
        FMT_3F_2X_2I              = "(3F16.0,16X,2I8)"
        FMT_3F_2X_F               = "(3F16.0,16X,F16.0)"
        FMT_3F_3X_I               = "(3F16.0,24X,I8)"
        FMT_3F_3X_2I              = "(3F16.0,24X,2I8)"
        FMT_4F_I                  = "(4F16.0,I8)"
        FMT_4F_2I                 = "(4F16.0,2I8)"
        FMT_4F_X_I                = "(4F16.0,8X,I8)"
        FMT_X_I_X_I_X_I_X_I_X_I   = "(5(8X,I8))"
        FMT_X_I_2F                = "(8X,I8,2F16.0)"
        FMT_X_I_3F                = "(8X,I8,3F16.0)"
        FMT_X_I_3F_2I             = "(8X,I8,3F16.0,2I8)"
        FMT_X_3F                  = "(8X,3F16.0)"
        FMT_2X_I                  = "(16X,I8)"
        FMT_2X_I_2X_I             = "(16X,I8,16X,I8)"
        FMT_2X_2F                 = "(16X,2F16.0)"
        FMT_2X_2F_I               = "(16X,2F16.0,I8)"
        FMT_2X_3F                 = "(16X,3F16.0)"
        FMT_2X_3F_I               = "(16X,3F16.0,I8)"
        FMT_3X_I_F                = "(24X,I8,F16.0,24X)"
        FMT_3X_I_2F               = "(24X,I8,2F16.0)"
        FMT_3X_F                  = "(24X,F16.0)"
        FMT_4X_I                  = "(32X,I8)"
        FMT_7X_I                  = "(56X,I8)"
        FMT_A                     = "(A8)"
        FMT_A_I                   = "(A8,I8)"
        FMT_A_I_F                 = "(A8,I8,F16.0)"
        FMT_A_I_2F_I              = "(A8,I8,2F16.0,I8)"
        FMT_A_2I                  = "(A8,2I8)"
        FMT_A_2I_X_I              = "(A8,2I8,8X,I8)"
        FMT_A_2I_3F               = "(A8,2I8,3F16.0)"
        FMT_A_3I                  = "(A8,3I8)"
        FMT_A_3I_3F               = "(A8,3I8,3F16.0)"
        FMT_2A_2I_3F              = "(2A8,2I8,3F16.0)"
        FMT_2A_X_I_2X_F           = "(2A8,8X,I8,16X,F16.0)"
        FMT_2A_X_I_F_X_F          = "(2A8,8X,I8,F16.0,8X,F16.0)"
        FMT_2A_X_I_F_2X_F         = "(2A8,8X,I8,F16.0,16X,F16.0)"
        FMT_2A_2I_F_2I_F          = "(2A8,2I8,F16.0,2I8,F16.0)"
        FMT_3A                    = "(3A8)"
        FMT_3DA                   = "(3A16)"
        FMT_I_A                   = "(I8,A8)"
        FMT_I_A_2F                = "(I8,A8,2F16.0)"
        FMT_I_A_3F                = "(I8,A8,3F16.0)"
        FMT_I_A_4F                = "(I8,A8,4F16.0)"
        FMT_I_A_4I                = "(I8,A8,4I8)"
        FMT_I_A_5I                = "(I8,A8,5I8)"
        FMT_I_A_4I_2F             = "(I8,A8,4I8,2F16.0)"
        FMT_I_A_2I_F_I            = "(I8,A8,2I8,F16.0,I8)"
        FMT_I_F_I_A               = "(I8,F16.0,I8,A8)"
        FMT_THGR                  = "(2I8,A80)"
        FMT_STRING                = "(A)"
        FMT_2I_2F_I_F             = "(2I8,2F16.0,I8,F16.0)"
        FMT_2I_2F_2I              = "(2I8,2F16.0,2I8)"
        FMT_I_X_F_I               = "(I8,8X,F16.0,I8)"
        FMT_2F_2X_I               ="(2F16.0,16X,I8)"
        FMT_5I_4X_I               ="(5I8,32X,I8)"
        FMT_I_A_3I_X_2F           ="(I8,A8,3I8,8X,2F16.0)"
        FMT_3I_3X_2F              ="(3I8,24X,2F16.0)"
        FMT_3I_3X_I               ="(3I8,24X,I8)"
        FMT_3I_3X_2I              ="(3I8,24X,2I8)"
        FMT_3I_X_2F               ="(3I8,8X,2F16.0)"
        FMT_3I_X_3F               ="(3I8,8X,3F16.0)"
        FMT_4I_F                  ="(4I8,F16.0)"
        FMT_F_I_X_F_2I            = "(F16.0,I8,8X,F16.0,2I8)"
        FMT_6I_3X_I               ="(6I8,24X,I8)"
        FMT_F_I_X_F_2I_F          ="(F16.0,I8,8X,F16.0,2I8,F16.0)"
        FMT_F_2I_F                ="(F16.0,2I8,F16.0)"
        FMT_F_2I_F_X_I_F          ="(F16.0,2I8,F16.0,8X,I8,F16.0)"
        FMT_3F_I_X_F              ="(3F16.0,I8,8X,F16.0)"
        FMT_3F_X_I_F              ="(3F16.0,8X,I8,F16.0)"
        FMT_2F_2I_2F              ="(2F16.0,2I8,2F16.0)"
        FMT_X_A                   ="(8X,A8)"
        FMT_X_I_4F                ="(8X,I8,4F16.0)"
        FMT_X_3I_F_3I             ="(8X,3I8,F16.0,3I8)"
        FMT_X_3I_2F               ="(8X,3I8,2F16.0)"
        FMT_X_4F                  ="(8X,4F16.0)"
        FMT_2X_4F                 ="(16X,4F16.0)"
        FMT_2X_3F_2I              ="(16X,3F16.0,2I8)"
        FMT_2I_2X_3F              ="(2I8,16X,3F16.0)"
        FMT_3I_5X_F               ="(3I8,40X,F16.0)"
        FMT_X_I                   ="(8X,I8)"
        FMT_3X_I                  ="(24X,I8)"
        FMT_6X_I                  ="(48X,I8)"
        FMT_6X_F                  ="(48X,F16.0)"
        FMT_9X_I                  ="(72X,I8)"
        FMT_F_A_2I                ="(F16.0,A8,2I8)"
        FMT_I_A_I                 = "(I8,A8,I8)"
        FMT_I_A_2I                 = "(I8,A8,2I8)"
        FMT_I_A_3I                 = "(I8,A8,3I8)"
        FMT_3I_6X_I             = "(3I8,48X,I8)"
        FMT_2I_X_F_4X_I         = "(2I8,8X,F16.0,32X,I8)"
        FMT_I_2X_F_4X_I         = "(I8,16X,F16.0,32X,I8)"
        FMT_F_2I_F_I            = "(F16.0,2I8,F16.0,I8)"
        FMT_3I_F_I              = "(3I8,F16.0,I8)"
        FMT_3I_F_2I             = "(3I8,F16.0,2I8)"
        FMT_3I_F_2I_X_F         = "(3I8,F16.0,2I8,8X,F16.0)"
        FMT_F_2I_F_3X_I         = "(F16.0,2I8,F16.0,24X,I8)"
        FMT_3I_F_4X_I           = "(3I8,F16.0,32X,I8)"
        FMT_3I_X_F_3X_I         = "(3I8,8X,F16.0,24X,I8)"
        FMT_2I_F_X_I            = "(2I8,F16.0,8X,I8)"  
        FMT_2I_F_X_I_F          = "(2I8,F16.0,8X,I8,F16.0)"  
c        FMT_5X_I                = "(40X,I8)"
        FMT_F_2I_2F_X_I         = "(F16.0,2I8,2F16.0,8X,I8)"
        FMT_3I_F_3I_F           = "(3I8,F16.0,3I8,F16.0)"
        FMT_I_2F_4I               = "(I8,2F16.0,4I8)"
        FMT_I_3X_F_X_I_F        = "(I8,24X,F16.0,8X,I8,F16.0)"
        FMT_I_X_2F_X_I_F        = "(I8,8X,2F16.0,8X,I8,F16.0)"           
        FMT_I_F_2I              = "(I8,F16.0,2I8)"
        FMT_I_2F_3I_F           = "(I8,2F16.0,3I8,F16.0)"
        FMT_X_I_F_2I            = "(8X,I8,F16.0,2I8)"
        FMT_X_I_F_2I_X_I        = "(8X,I8,F16.0,2I8,8X,I8)"
        FMT_X_I_F_2I_X_I_F      = "(8X,I8,F16.0,2I8,8X,I8,F16.0)"
        FMT_2I_F_2I_X_I         = "(2I8,F16.0,2I8,8X,I8)"
        FMT_2I_F_2I_X_I_F       = "(2I8,F16.0,2I8,8X,I8,F16.0)"
        FMT_A_I_2F              = "(A8,I8,2F16.0)"
        FMT_3I_3X_F             = "(3I8,30X,F16.0)"
        FMT_F_4X_F              = "(F16.0,40X,F16.0)"
        FMT_I_X_I               = "(I8,8X,I8)"
        FMT_9A_I                = "(72X,I8)"
        FMT_2I_F_2I_3A_I        = "(2I8,F16.0,2I8,24X,I8)"
        FMT_2I_F_2I_2A_I        = "(2I8,F16.0,2I8,16X,I10)"
        FMT_I_2X_I_3F           = "(I8,16X,I8,3F16.0)"
        FMT_4I_X_I              = "(4I8,8X,I8)"
C---    Output formats
        FMW_I                  = "(I8)"
        FMW_2I                 = "(2I8)"
        FMW_3I                 = "(3I8)"
        FMW_4I                 = "(4I8)"
        FMW_5I                 = "(5I8)"
        FMW_6I                 = "(6I8)"
        FMW_7I                 = "(7I8)"
        FMW_8I                 = "(8I8)"
        FMW_9I                 = "(9I8)"
        FMW_10I                = "(10I8)"
        FMW_I_A                = "(I8,A)"
        FMW_A_I                = "(A,I8)"
        FMW_A_I_A              = "(A,I8,A)"
        FMW_A_I_A_I            = "(A,I8,A,I8)"
        FMW_I_F                = "(I8,1PG16.9)"
        FMW_I_F_3X_I_F         = "(I8,1PG16.9,24X,I8,1PG16.9)"
        FMW_I_F_2X_I           = "(I8,1PG16.9,16X,I8)"
        FMT_I_2F_2I            = "(I8,1P2G16.9,2I8)"
        FMW_I_3F               = "(I8,1P3G16.9)"
        FMW_I_3F_I             = "(I8,1P3G16.9,I8)"
        FMW_I_4F_I             = "(I8,1P4G16.9,I8)"
        FMW_I_3F_2I            = "(I8,1P3G16.9,2I8)"
        FMW_I_3F_3I            = "(I8,1P3G16.9,3I8)"
        FMW_I_X_F_4X_F         = "(I8,8X,1P3G16.9,32X,1P3G16.9)"
        FMW_I_X_2F_3I          = "(I8,8X,1P2G16.9,3I8)"
        FMW_3I                 = "(3I8)"
        FMW_3I_F               = "(3I8,1PG16.9)"
        FMW_3I_A               = "(3I8,A)"
        FMW_3I_F_3I_F          = "(3I8,1PG16.9,3I8,1PG16.9)"
        FMW_3I_F_I_F           = "(3I8,1PG16.9,I8,1PG16.9)"
        FMW_4I_F               = "(4I8,1PG16.9)"
        FMW_4I_X_I_2X_F        = "(4I8,8X,I8,16X,F16.0)"
        FMW_4I_2X_2F           = "(4I8,16X,1P2G16.9)"
        FMW_4I_4X_F            = "(4I8,32X,1PG16.9)"
        FMW_5I_F               = "(5I8,1PG16.9)"
        FMW_7I_2F              = "(7I8,1P2G16.9)"
        FMW_I_3F               = "(I8,1P3G16.9)"
        FMW_4I_F_4I            = "(4I8,1PG16.9,4I8)"
        FMW_2I_2X_F_3X_I       = "(2I8,16X,1PG16.9,24X,I8)"
        FMW_I_X_3F_I           = "(I8,8X,1P3G16.9,I8)"
        FMW_I_X_3F_2I          = "(I8,8X,1P3G16.9,2I8)"
        FMW_2I_X_F             = "(2I8,8X,1PG16.9)"
        FMW_6I_2F              = "(6I8,1P2G16.9)"
        FMW_2I_2X_3F           = "(2I8,16X,1P3G16.9)"
        FMW_I_A_3I_X_2F        = "(I8,A,3I8,8X,1P2G16.9)"
        FMW_I_A_4I_2F          = "(I8,A,4I8,1P2G16.9)"
        FMW_KEY                = "('/',A,'/')"
        FMW_KEY_ID             = "('/',A,'/',I8)"
        FMW_KEY_2ID            = "('/',A,'/',I8,'/',I8)"
        FMW_KEY_2ID_A          = "('/',A,'/',I8,'/',I8,'/',A)"
        FMW_KEY_3ID            = "('/',A,'/',I8,'/',I8,'/',I8)"
        FMW_2KEY               = "('/',A,'/',A)"
        FMW_2KEY_ID            = "('/',A,'/',A,'/',I8)"
        FMW_2KEY_2ID           = "('/',A,'/',A,'/',I8,'/',I8)"
        FMW_2KEY_3ID           = "('/',A,'/',A,'/',I8,'/',I8,'/',I8)"
        FMW_KEY_4ID            = "('/',A,'/',I8,'/',I8,'/',I8,'/',I8)"
        FMW_2KEY_4ID       = "('/',A,'/',A,'/',I8,'/',I8,'/',I8,'/',I8)"
        FMW_3KEY_2ID           = "('/',A,'/',A,'/',A,'/',I8,'/',I8)"
        FMW_2F_2X_I            = "(1P2G16.9,16X,I8)"
        FMW_3F_2I              = "(1P3G16.9,2I8)"
        FMW_3F_X_I             = "(1P3G16.9,8X,I8)"
        FMW_3F_2X_I            = "(1P3G16.9,16X,I8)"
        FMW_3F_3X_I            = "(1P3G16.9,24X,I8)"
        FMW_2I_A               = "(2I8,A)"
        FMW_2I_A_2I            = "(2I8,A,2I8)"
        FMW_2F_6I              = "(1P2G16.9,6I8)"
        FMW_5I_X_2F            = "(5I8,8X,1P2G16.9)"
        FMW_5I_3X_F            = "(5I8,24X,1PG16.9)"
        FMW_7I_X_F             = "(7I8,8X,1PG16.9)"
        FMW_8I_X_I             = "(8I8,8X,I8)"
        FMW_I_A_2I             = "(I8,A,2I8)"
        FMW_I_A_3I             = "(I8,A,3I8)"
        FMW_F_A_2I             = "(1PG16.9,A,2I8)"
        FMW_I_A_2F             = "(I8,A,1P2G16.9)"
        FMW_2I_F               = "(2I8,1PG16.9)"
        FMW_I_A_3F             = "(I8,A,1P3G16.9)"
        FMW_I_A_4F             = "(I8,A,1P4G16.9)"
        FMW_2I_2F              = "(2I8,1P2G16.9)"
        FMW_2I_2F_3I           = "(2I8,1P2G16.9,3I8)"
        FMW_2I_3F              = "(2I8,1P3G16.9)"
        FMW_2I_3F_I            = "(2I8,1P3G16.9,I8)"
        FMW_2I_F_I_F_2I        = "(2I8,1PG16.9,I8,1PG16.9,2I8)"
        FMW_I_X_F              = "(I8,8X,1PG16.9)"
        FMW_I_X_F_I            = "(I8,8X,1PG16.9,2I8)"
        FMW_I_X_2F             = "(I8,8X,1P2G16.9)"
        FMW_I_X_3F             = "(I8,8X,1P3G16.9)"
        FMW_I_X_4F             = "(I8,8X,1P4G16.9)"
        FMW_3F_2X_2I            = "(1P3G16.9,16X,2I8)"
        FMW_2I_F_2I            = "(2I8,1PG16.9,2I8)"
        FMW_2I_F_3I_F          = "(2I8,1PG16.9,3I8,1PG16.9)"
c        FMW_5X_I              = "(40X,I8)"
CC
        FMW_4I_2F              = "(4I8,1P2G16.9)"
        FMW_4I_3F              = "(4I8,1P3G16.9)"
        FMW_F_2I_F             = "(1PG16.9,2I8,1PG16.9)"
        FMW_F_4I_2F            = "(1PG16.9,4I8,1P2G16.9)"
        FMW_F_2I_F_I_F         = "(F16.0,2I8,F16.0,I8,F16.0,I8,F16.0)"
        FMW_F_3I               = "(F16.0,3I8)"
        FMW_2F_2I_F            = "(1P2G16.9,2I8,1PG16.9)"
        FMW_2F_2I_F_I          = "(1P2G16.9,2I8,1PG16.9,I8)"
        FMW_2F_2I_2F           = "(1P2G16.9,2I8,1P2G16.9)"
        FMW_2F_I_2F            = "(1P2G16.9,I8,1P2G16.9)"
        FMW_2F_I_2F_I          = "(1P2G16.9,I8,1P2G16.9,I8)"
        FMW_2F_2X_I_F_I        = "(1P2G16.9,16X,I8,1PG16.9,I8)"
        FMW_2F_2X_F            = "(1P2G16.9,16X,1PG16.9)"
        FMW_3I_X_2F            = "(3I8,8X,1P2G16.9)"
        FMW_3I_X_3F            = "(3I8,8X,1P3G16.9)"
        FMW_3I_3X_2F           = "(3I8,24X,1P2G16.9)"
        FMW_F_I                = "(1PG16.9,I8)"
        FMW_F_2I               = "(1PG16.9,2I8)"
        FMW_F_I_F_I_F          = "(1PG16.9,I8,1PG16.9,I8,1PG16.9)"
        FMW_F_I_2F             = "(1PG16.9,I8,1P2G16.9)"
        FMW_2F_I               = "(1P2G16.9,I8)"
        FMW_F_3X_3I_F          = "(1PG16.9,24X,3I8,1PG16.9)"
        FMW_2I_4F              = "(2I8,1P4G16.9)"
        FMW_2I_F_I             = "(2I8,1PG16.9,I8)"
        FMW_3F_I               = "(1P3G16.9,I8)"
        FMW_3F_I_F             = "(1P3G16.9,I8,1PG16.9)"
        FMW_3F_I_F_I           = "(1P3G16.9,I8,1PG16.9,I8)"
        FMW_3F_3I              = "(1P3G16.9,3I8)"
        FMW_3F_4I              = "(1P3G16.9,4I8)"
        FMW_X_I_4F             = "(8X,I8,1P4G16.9)"
        FMW_4I_2F_I            = "(4I8,1P2G16.9,I8)"
        FMW_F_3X_3I            = "(1PG16.9,24X,3I8)"
        FMW_2F_2I              = "(1P2G16.9,2I8)"
        FMW_2F_3I              = "(1P2G16.9,3I8)"
        FMW_I_X_A              = "(I8,8X,A)"
        FMW_3I_5X_A            = "(3I8,40X,A)"
        FMW_F                  = "(1PG16.9)"
        FMW_2F                 = "(1P2G16.9)"
        FMW_3F                 = "(1P3G16.9)"
        FMW_4F                 = "(1P4G16.9)"
        FMW_4F_I               = "(1P4G16.9,I8)"
        FMW_4F_X_I             = "(1P4G16.9,8X,I8)"
        FMW_4F_2I              = "(1P4G16.9,2I8)"
        FMW_5F                 = "(1P5G16.9)"
        FMW_2A_2I_3F           = "(2A8,2I8,1P5G16.9)"
        FMW_A_3I               = "(A8,3I8)"
        FMW_I_2F               = "(I8,1P2G16.9)"
        FMW_I_2F_I             = "(I8,1P2G16.9,I8)"
        FMW_I_2F_I_2F          = "(I8,1P2G16.9,I8,1P2G16.9)"
        FMW_F_3X_I             = "(1PG16.9,24X,I8)"
        FMW_F_3X_2I            = "(1PG16.9,24X,2I8)"
        FMW_3I_6X_I            = "(3I8,32X,I8)"
        FMW_2I_X_F_4X_I        = "(2I8,8X,1PG16.9,32X,I8)"
        FMW_I_2X_F             = "(I8,16X,1PG16.9)"
        FMW_I_7X_F             = "(I10,56X,1PG16.9)"
        FMW_I_2X_F_4X_I        = "(I8,16X,1PG16.9,32X,I8)"
        FMW_3KEY_3ID           =
     .        "('/',A,'/',A,'/',A,'/',I8,'/',I8,'/',I8)"
        FMW_4KEY_3ID           =
     .        "('/',A,'/',A,'/',A,'/',A,'/',I8,'/',I8,'/',I8)"
        FMW_A_2I               = "(A,2I8)"
        FMW_A_2I_X_I           = "(A8,2I8,8X,I8)"
        FMW_I_A_5I             = "(I8,A10,5I8)"
        FMW_8I_F               = "(8I8,1P3G16.9)"
        FMW_A_I_2F             = "(A,I8,1P2G16.9)"
        FMW_X_I_3F_2I          = "(8X,I8,1P3G16.9,2I8)"
        FMW_2I_2F_I_F          = "(2I8,1P2G16.9,I8,1PG16.9)"
        FMW_2I_F_2I_X_I        = "(2I8,1PG16.9,2I8,8X,I8)"
        FMW_F_2I_F_X_I_F       = "(F16.0,2I8,F16.0,8X,I8,F16.0)"
        FMW_9A_I                = "(72X,I8)"
        FMW_2I_F_2I_3A_I        = "(2I8,F16.0,2I8,24X,I8)"
        FMW_2I_F_3I_F_I         = "(2I8,F16.0,3I8,F16.0,I8)"
        FMW_2I_F_2I_2A_I        = "(2I8,F16.0,2I8,16X,I10)"
        FMW_2I_F_2I_F           = "(2I8,1PG16.9,2I8,1PG16.9)"
        FMW_2I_F_2I_F_I         = "(2I8,1PG16.9,2I8,1PG16.9,I8)"
        FMW_F_I_2F_I            = "(1PG16.9,I8,1P2G16.9,I8)"
        FMW_4I_X_I              = "(4I8,8X,I8)"
        FMW_F_I_X_F_I_F         = "(1PG16.9,I8,8X,1PG16.9,I8,1PG16.9)"
        FMW_F_I_X_F_I           = "(1PG16.9,I8,8X,1PG16.9,I8)"        
        FMW_3F_X_I_F            = "(1P3G16.9,8X,I8,1PG16.9)"
C-------
      ELSE
C-------
        LFIELD                    = 10
        FMT_I                     = "(I10)"
        FMT_2I                    = "(2I10)"
        FMT_3I                    = "(3I10)"
        FMT_4I                    = "(4I10)"
        FMT_5I                    = "(5I10)"
        FMT_6I                    = "(6I10)"
        FMT_7I                    = "(7I10)"
        FMT_8I                    = "(8I10)"
        FMT_9I                    = "(9I10)"
        FMT_10I                   = "(10I10)"
        FMT_I_X_A                 = "(I10,10X,A)"
        FMT_I_X_F                 = "(I10,10X,F20.0)"
        FMT_I_X_F_2I_2F           = "(I10,10X,F20.0,2I10,2F20.0)"
        FMT_I_X_F_I_X_2F          = "(I10,10X,F20.0,I10,10X,2F20.0)"
        FMT_I_X_F_4I              = "(I10,10X,F20.0,4I10)"
        FMT_I_X_2F                = "(I10,10X,2F20.0)"
        FMT_I_X_2F_3I             = "(I10,10X,2F20.0,3I10)"
        FMT_I_X_3F                = "(I10,10X,3F20.0)"
        FMT_I_X_3F_I              = "(I10,10X,3F20.0,I10)"
        FMT_I_X_3F_2I             = "(I10,10X,3F20.0,2I10)"
        FMT_I_X_4F                = "(I10,10X,4F20.0)"
        FMT_I_2X_F                = "(I10,20X,F20.0)"
        FMT_I_3X_F                = "(I10,30X,F20.0)"
        FMT_I_3X_3F               = "(I10,30X,3F20.0)"
        FMT_I_5X_2F               = "(I10,50X,2F20.0)"
        FMT_I_7X_F                = "(I10,70X,F20.0)"
        FMT_I_F                   = "(I10,F20.0)"
        FMT_I_F_I                 = "(I10,F20.0,I10)"
        FMT_I_F_I_2F              = "(I10,F20.0,I10,2F20.0)"
        FMT_I_F_I_3F              = "(I10,F20.0,I10,3F20.0)"
        FMT_I_F_X_I               = "(I10,F20.0,10X,I10)"
        FMT_I_F_2X_I              = "(I10,F20.0,20X,I10)"
        FMT_I_F_3X_I_F            = "(I10,F20.0,30X,I10,F20.0)"
        FMT_I_F_6X_I              = "(I10,F20.0,60X,I10)"
        FMT_I_2F                  = "(I10,2F20.0)"
        FMT_I_2F_I_2F             = "(I10,2F20.0,I10,2F20.0)"
        FMT_I_2F_I                = "(I10,2F20.0,I10)"
        FMT_I_2F_2I               = "(I10,2F20.0,2I10)"
        FMT_I_2F_3I               = "(I10,2F20.0,3I10)"
        FMT_I_3F                  = "(I10,3F20.0)"
        FMT_I_3F_X_I              = "(I10,3F20.0,8X,I10)"
        FMT_I_4F                  = "(I10,4F20.0)"
        FMT_I_4F_I                = "(I10,4F20.0,I10)"
        FMT_I_3F_I                = "(I10,3F20.0,I10)"
        FMT_I_3F_2I               = "(I10,3F20.0,2I10)"
        FMT_I_3F_3I               = "(I10,3F20.0,3I10)"
        FMT_2I_X_3I_3X_I          = "(2I10,10X,3I10,30X,I10)"
        FMT_2I_X_3F_2I            = "(2I10,10X,3F20.0,2I10)"
        FMT_2I_X_F                = "(2I10,10X,F20.0)"
        FMT_2I_6X_F               = "(2I10,60X,F20.0)"
        FMT_2I_F                  = "(2I10,F20.0)"
        FMT_2I_F_I                = "(2I10,F20.0,I10)"
        FMT_2I_F_2I               = "(2I10,F20.0,2I10)"
        FMT_2I_F_2I_F             = "(2I10,F20.0,2I10,F20.0)"
        FMT_2I_F_2I_F_I           = "(2I10,F20.0,2I10,F20.0,I10)"
        FMT_2I_F_3I_F             = "(2I10,F20.0,3I10,F20.0)"
        FMT_2I_F_3I_F_I           = "(2I10,F20.0,3I10,F20.0,I10)"
        FMT_2I_F_I_F_I            = "(2I10,F20.0,I10,F20.0,I10)"
        FMT_2I_F_I_F_2I           = "(2I10,F20.0,I10,F20.0,2I10)"
        FMT_2I_F_I_F              = "(2I10,F20.0,I10,F20.0)"
        FMT_2I_F_I_X_2F           = "(2I10,F20.0,I10,10X,2F20.0)"
        FMT_2I_2F                 = "(2I10,2F20.0)"
        FMT_2I_2F_2X_I            = "(2I10,2F20.0,20X,I10)"
        FMT_2I_2F_2X_A            = "(2I10,2F20.0,20X,A20)"
        FMT_2I_2F_I               = "(2I10,2F20.0,I10)"
        FMT_2I_2F_3I              = "(2I10,2F20.0,3I10)"
        FMT_2I_2F_4I              = "(2I10,2F20.0,4I10)"
        FMT_2I_3F                 = "(2I10,3F20.0)"
        FMT_2I_3F_I               = "(2I10,3F20.0,I10)"
        FMT_2I_3F_2I              = "(2I10,3F20.0,2I10)"
        FMT_2I_4F                 = "(2I10,4F20.0)"
        FMT_2I_2X_I               = "(2I10,20X,I10)"
        FMT_2I_2X_F_3X_I          = "(2I10,20X,F20.0,30X,I10)"
        FMT_2I_2X_2F_X_I          = "(2I10,20X,2F20.0,10X,I10)"
        FMT_2I_4X_I               = "(2I10,40X,I10)"
        FMT_2I_A                  = "(2I10,A)"
        FMT_2I_A_2I               = "(2I10,A10,2I10)"
        FMT_2I_A_4I               = "(2I10,A10,4I10)"
        FMT_3I_A                  = "(3I10,A10)"
        FMT_3I_F                  = "(3I10,F20.0)"
        FMT_3I_2F                  = "(3I10,2F20.0)"
        FMT_3I_F_I_F              = "(3I10,F20.0,I10,F20.0)"
        FMT_3I_X_4I               = "(3I10,10X,4I10)"
        FMT_3I_X_F                = "(3I10,10X,F20.0)"
        FMT_3I_X_4F               = "(3I10,10X,4F20.0)"
        FMT_4I_2F                 = "(4I10,2F20.0)"
        FMT_4I_4X_F               = "(4I10,40X,F20.0)"
        FMT_4I_X_I_2X_F           = "(4I10,10X,I10,20X,F20.0)"
        FMT_4I_X_I_2F             = "(4I10,10X,I10,2F20.0)"
        FMT_4I_5X_I               = "(4I10,50X,I10)"
        FMT_4I_F_3I               = "(4I10,F20.0,3I10)"
        FMT_4I_F_4I               = "(4I10,F20.0,4I10)"
        FMT_4I_2F_I               = "(4I10,2F20.0,I10)"
        FMT_4I_2F_2I              = "(4I10,2F20.0,2I10)"
        FMT_4I_2F_X_I             = "(4I10,2F20.0,10X,I10)"
        FMT_4I_3F                 = "(4I10,3F20.0)"
        FMT_4I_X_3F                 = "(4I10,10X,3F20.0)"
        FMT_4I_5X_I               = "(4I10,50X,I10)"
        FMT_4I_F_I                = "(4I10,F20.0,I10)"
        FMT_4I_2X_2F              = "(4I10,20X,2F20.0)"
        FMT_5I_A_2F               = "(5I10,A10,2F20.0)"
        FMT_5I_X_2F               = "(5I10,10X,2F20.0)"
        FMT_5I_2X_3I              = "(5I10,20X,3I10)"
        FMT_5I_2X_3F              = "(5I10,20X,3F20.0)"
        FMT_5I_3X_F               = "(5I10,30X,F20.0)"
        FMT_5I_F                  = "(5I10,F20.0)"
        FMT_5I_F_3I               = "(5I10,F20.0,3I10)"
        FMT_5I_2F                  = "(5I10,2F20.0)"
        FMT_6I_2X_F               = "(6I10,20X,F20.0)"
        FMT_6I_2F                 = "(6I10,2F20.0)"
        FMT_7I_X_F                = "(7I10,10X,F20.0)"
        FMT_7I_2X_I               = "(7I10,20X,I10)"
        FMT_8I_X_I                = "(8I10,10X,I10)"
        FMT_8I_F                  = "(8I10,F20.0)"
        FMT_I_F_I_F_I_F           = "(3(I10,F20.0))"
        FMT_F                     = "(F20.0)"
        FMT_2F                    = "(2F20.0)"
        FMT_3F                    = "(3F20.0)"
        FMT_4F                    = "(4F20.0)"
        FMT_5F                    = "(5F20.0)"
        FMT_6F                    = "(6F20.0)"
        FMT_F_I                   = "(F20.0,I10)"
        FMT_F_I_F                 = "(F20.0,I10,F20.0)"
        FMT_F_I_F_I_F             = "(F20.0,I10,F20.0,I10,F20.0)"
        FMT_F_I_2F                = "(F20.0,I10,2F20.0)"
        FMT_F_I_2F_I              = "(F20.0,I10,2F20.0,I10)"
        FMT_F_I_X_F_I_F           = "(F20.0,I10,10X,F20.0,I10,F20.0)"
        FMT_F_I_X_F_I             = "(F20.0,I10,10X,F20.0,I10)"
        FMT_F_2I                  = "(F20.0,2I10)"
        FMT_F_2I_F_I_F            = "(F20.0,2I10,F20.0,I10,F20.0)"
        FMT_F_2I_2F               = "(F20.0,2I10,2F20.0)"
        FMT_I_2F_I_F              = "(I10,2F20.0,I10,F20.0)"
        FMT_F_3I                  = "(F20.0,3I10)"
        FMT_F_3I_2F               = "(F20.0,3I10,2F20.0)"
        FMT_F_4I                  = "(F20.0,4I10)"
        FMT_F_4I_2F               = "(F20.0,4I10,2F20.0)"
        FMT_F_3X_I                = "(F20.0,30X,I10)"
        FMT_F_3X_2I               = "(F20.0,30X,2I10)"
        FMT_F_3X_3I               = "(F20.0,30X,3I10)"
        FMT_F_3X_3I_F             = "(F20.0,30X,3I10,F20.0)"
        FMT_F_2X_F_I              = "(F20.0,20X,F20.0,I10)"
        FMT_F_2X_I                = "(F20.0,20X,I10)"
        FMT_F_2X_2I               = "(F20.0,20X,2I10)"
        FMT_2F_I                  = "(2F20.0,I10)"
        FMT_2F_I_F_I              = "(2F20.0,I10,F20.0,I10)"
        FMT_2F_2I                 = "(2F20.0,2I10)"
        FMT_2F_3I                 = "(2F20.0,3I10)"
        FMT_2F_4I                 = "(2F20.0,4I10)"
        FMT_2F_5I                 = "(2F20.0,5I10)"
        FMT_2F_6I                 = "(2F20.0,6I10)"
        FMT_2F_2I_F               = "(2F20.0,2I10,F20.0)"
        FMT_2F_2I_F_I             = "(2F20.0,2I10,F20.0,I10)"
        FMT_2F_2I_F_2I            = "(2F20.0,2I10,F20.0,2I10)"
        FMT_2F_X_I_2F             = "(2F20.0,10X,I10,2F20.0)"
        FMT_2F_2X_2F              = "(2F20.0,20X,2F20.0)"
        FMT_2F_2X_I_F_I           = "(2F20.0,20X,I10,F20.0,I10)"
        FMT_2F_2X_F               = "(2F20.0,20X,F20.0)"
        FMT_2F_4X_F               = "(2F20.0,40X,F20.0)"
        FMT_2F_5X_I               = "(2F20.0,50X,I10)"
        FMT_3F_I                  = "(3F20.0,I10)"
        FMT_3F_I_F                = "(3F20.0,I10,F20.0)"
        FMT_3F_I_F_I              = "(3F20.0,I10,F20.0,I10)"
        FMT_3F_2I                 = "(3F20.0,2I10)"
        FMT_3F_2I_F               = "(3F20.0,2I10,F20.0)"
        FMT_3F_2I_X_I             = "(3F20.0,2I10,10X,I10)"
        FMT_3F_3I                 = "(3F20.0,3I10)"
        FMT_3F_4I                 = "(3F20.0,4I10)"
        FMT_3F_X_I                = "(3F20.0,10X,I10)"
        FMT_3F_2X_I               = "(3F20.0,20X,I10)"
        FMT_3F_2X_2I              = "(3F20.0,20X,2I10)"
        FMT_3F_2X_F               = "(3F20.0,20X,F20.0)"
        FMT_3F_3X_I               = "(3F20.0,30X,I10)"
        FMT_3F_3X_2I              = "(3F20.0,30X,2I10)"
        FMT_4F_I                  = "(4F20.0,I10)"
        FMT_4F_2I                 = "(4F20.0,2I10)"
        FMT_4F_X_I                = "(4F20.0,10X,I10)"
        FMT_X_I_X_I_X_I_X_I_X_I   = "(5(10X,I10))"
        FMT_X_I_2F                = "(10X,I10,2F20.0)"
        FMT_X_I_3F                = "(10X,I10,3F20.0)"
        FMT_X_I_3F_2I             = "(10X,I10,3F20.0,2I10)"
        FMT_X_3F                  = "(10X,3F20.0)"
        FMT_2X_I                  = "(20X,I10)"
        FMT_2X_I_2X_I             = "(20X,I10,20X,I10)"
        FMT_2X_2F                 = "(20X,2F20.0)"
        FMT_2X_2F_I               = "(20X,2F20.0,I10)"
        FMT_2X_3F                 = "(20X,3F20.0)"
        FMT_2X_3F_I               = "(20X,3F20.0,I10)"
        FMT_3X_I_F                = "(30X,I10,F20.0,30X)"
        FMT_3X_I_2F               = "(30X,I10,2F20.0)"
        FMT_3X_F                  = "(30X,F20.0)"
        FMT_4X_I                  = "(40X,I10)"
        FMT_7X_I                  = "(70X,I10)"
        FMT_A                     = "(A10)"
        FMT_A_I                   = "(A10,I10)"
        FMT_A_I_F                 = "(A10,I10,F20.0)"
        FMT_A_I_2F_I              = "(A10,I10,2F20.0,I10)"
        FMT_A_2I                  = "(A10,2I10)"
        FMT_A_2I_X_I              = "(A10,2I10,10X,I10)"
        FMT_A_2I_3F               = "(A10,2I10,3F20.0)"
        FMT_A_3I                  = "(A10,3I10)"
        FMT_A_3I_3F               = "(A10,3I10,3F20.0)"
        FMT_2A_2I_3F              = "(2A10,2I10,3F20.0)"
        FMT_2A_X_I_2X_F           = "(2A10,10X,I10,20X,F20.0)"
        FMT_2A_X_I_F_X_F          = "(2A10,10X,I10,F20.0,10X,F20.0)"
        FMT_2A_X_I_F_2X_F         = "(2A10,10X,I10,F20.0,20X,F20.0)"
        FMT_2A_2I_F_2I_F          = "(2A10,2I10,F20.0,2I10,F20.0)"
        FMT_3A                    = "(3A10)"
        FMT_3DA                   = "(3A20)"
        FMT_I_A                   = "(I10,A10)"
        FMT_I_DA                  = "(I10,A20)"
        FMT_I_A_2F                = "(I10,A10,2F20.0)"
        FMT_I_A_3F                = "(I10,A10,3F20.0)"
        FMT_I_A_4F                = "(I10,A10,4F20.0)"
        FMT_I_A_4I                = "(I10,A10,4I10)"
        FMT_I_A_5I                = "(I10,A10,5I10)"
        FMT_I_A_4I_2F             = "(I10,A10,4I10,2F20.0)"
        FMT_I_A_2I_F_I            = "(I10,A10,2I10,F20.0,I10)"
        FMT_I_F_I_A               = "(I10,F20.0,I10,A10)"
        FMT_THGR                  = "(2I10,A80)"
        FMT_STRING                = "(A)"
        FMT_2I_2F_I_F             = "(2I10,2F20.0,I10,F20.0)"
        FMT_2F_I_F                = "(2F20.0,I10,F20.0)"
        FMT_2F_I_2F               = "(2F20.0,I10,2F20.0)"
        FMT_2F_I_2F_I             = "(2F20.0,I10,2F20.0,I10)"
        FMT_2F_I_X_F              = "(2F20.0,I10,10X,F20.0)"
        FMT_2I_2F_2I              = "(2I10,2F20.0,2I10)"
        FMT_I_X_F_I               = "(I10,10X,F20.0,I10)"
        FMT_2F_2X_I               ="(2F20.0,20X,I10)"
        FMT_5I_4X_I               ="(5I10,40X,I10)"
        FMT_I_A_3I_X_2F           ="(I10,A10,3I10,10X,2F20.0)"
        FMT_3I_3X_2F              ="(3I10,30X,2F20.0)"
        FMT_3I_3X_I               ="(3I10,30X,I10)"
        FMT_3I_3X_2I              ="(3I10,30X,2I10)"
        FMT_3I_X_2F               ="(3I10,10X,2F20.0)"
        FMT_3I_X_3F               ="(3I10,10X,3F20.0)"
        FMT_F_I_X_F_2I            = "(F20.0,I10,10X,F20.0,2I10)"
        FMT_6I_3X_I               ="(6I10,30X,I10)"
        FMT_F_I_X_F_2I_F          ="(F20.0,I10,10X,F20.0,2I10,F20.0)"
        FMT_F_2I_F                ="(F20.0,2I10,F20.0)"
        FMT_F_2I_F_X_I_F          ="(F20.0,2I10,F20.0,10X,I10,F20.0)"
        FMT_3F_I_X_F              ="(3F20.0,I10,10X,F20.0)"
        FMT_3F_X_I_F              ="(3F20.0,10X,I10,F20.0)"
        FMT_2F_2I_2F              ="(2F20.0,2I10,2F20.0)"
        FMT_X_A                   ="(10X,A10)"
        FMT_X_I_4F                ="(10X,I10,4F20.0)"
        FMT_X_3I_F_3I             ="(10X,3I10,F20.0,3I10)"
        FMT_X_3I_2F               ="(10X,3I10,2F20.0)"
        FMT_X_4F                  ="(10X,4F20.0)"
        FMT_2X_4F                 ="(20X,4F20.0)"
        FMT_2X_3F_2I              ="(20X,3F20.0,2I10)"
        FMT_2I_2X_3F              ="(2I10,20X,3F20.0)"
        FMT_4I_F                  ="(4I10,F20.0)"
        FMT_3I_5X_F               ="(3I10,50X,F20.0)"
        FMT_3I_5X_A               ="(3I10,50X,A20)"
        FMT_X_I                   ="(10X,I10)"
        FMT_3X_I                  ="(10X,I10)"
        FMT_6X_I                  ="(60X,I10)"
        FMT_6X_F                  ="(60X,F20.0)"
        FMT_9X_I                  ="(90X,I10)"
        FMT_F_A_2I                ="(F20.0,A10,2I10)"
        FMT_I_A_I                 = "(I10,A10,I10)"
        FMT_I_A_2I                 = "(I10,A10,2I10)"
        FMT_I_A_3I                 = "(I10,A10,3I10)"
        FMT_3I_6X_I             = "(3I10,60X,I10)"
        FMT_2I_X_F_4X_I         = "(2I10,10X,F20.0,40X,I10)"
        FMT_I_2X_F_4X_I         = "(I10,20X,F20.0,40X,I10)"
        FMT_F_2I_F_I            = "(F20.0,2I10,F20.0,I10)"
        FMT_3I_F_I              = "(3I10,F20.0,I10)"
        FMT_3I_F_2I             = "(3I10,F20.0,2I10)"
        FMT_3I_F_2I_X_F         = "(3I10,F20.0,2I10,10X,F20.0)"
        FMT_F_2I_F_3X_I         = "(F20.0,2I10,F20.0,30X,I10)"
        FMT_3I_F_4X_I           = "(3I10,F20.0,40X,I10)"
        FMT_3I_X_F_3X_I         = "(3I10,10X,F20.0,30X,I10)"
        FMT_2I_F_X_I            = "(2I10,F20.0,10X,I10)"
        FMT_2I_F_X_I_F          = "(2I10,F20.0,10X,I10,F20.0)"
c        FMT_5X_I               = "(50X,I10)"
        FMT_F_2I_2F_X_I         = "(F20.0,2I10,2F20.0,10X,I10)"
        FMT_3I_F_3I_F           = "(3I10,F20.0,3I10,F20.0)"
        FMT_I_2F_4I             = "(I10,2F20.0,4I10)"
        FMT_I_3X_F_X_I_F        = "(I10,30X,F20.0,10X,I10,F20.0)"
        FMT_I_X_2F_X_I_F        = "(I10,10X,2F20.0,10X,I10,F20.0)"        
        FMT_I_F_2I              = "(I10,F20.0,2I10)"
        FMT_I_2F_3I_F           = "(I10,2F20.0,3I10,F20.0)"
        FMT_X_I_F_2I            = "(10X,I10,F20.0,2I10)"
        FMT_X_I_F_2I_X_I        = "(10X,I10,F20.0,2I10,10X,I10)"
        FMT_X_I_F_2I_X_I_F      = "(10X,I10,F20.0,2I10,10X,I10,F20.0)"
        FMT_2I_F_2I_X_I         = "(2I10,F20.0,2I10,10X,I10)"
        FMT_2I_F_2I_X_I_F       = "(2I10,F20.0,2I10,10X,I10,F20.0)"
        FMT_A_I_2F              = "(A10,I10,2F20.0)"
        FMT_3I_3X_F             = "(3I10,30X,F20.0)"
        FMT_F_4X_F              = "(F20.0,40X,F20.0)"
        FMT_I_X_I               = "(I10,10X,I10)"
        FMT_I_X_5I              = "(I10,10X,5I10)"
        FMT_9A_I                = "(90X,I10)"
        FMT_2I_F_2I_3A_I        = "(2I10,F20.0,2I10,30X,I10)"
        FMT_2I_F_2I_2A_I      = "(2I10,F20.0,2I10,20X,I10)"
        FMT_I_2X_I_3F           = "(I10,20X,I10,3F20.0)"
        FMT_4I_X_I              = "(4I10,10X,I10)"
C
C---  Output formats
C
        FMW_I                  = "(I10)"
        FMW_2I                 = "(2I10)"
        FMW_3I                 = "(3I10)"
        FMW_4I                 = "(4I10)"
        FMW_5I                 = "(5I10)"
        FMW_6I                 = "(6I10)"
        FMW_7I                 = "(7I10)"
        FMW_8I                 = "(8I10)"
        FMW_9I                 = "(9I10)"
        FMW_10I                = "(10I10)"
        FMW_I_A                = "(I10,A)"
        FMW_I_DA                = "(I10,A20)"
        FMW_A_I                = "(A,I10)"
        FMW_A_I_A              = "(A,I10,A)"
        FMW_A_I_A_I            = "(A,I10,A,I10)"
        FMW_I_F                = "(I10,1PG20.13)"
        FMW_I_F_3X_I_F         = "(I10,1PG20.13,30X,I10,1PG20.13)"
        FMW_I_3F               = "(I10,1P3G20.13)"
        FMW_I_3F_I             = "(I10,1P3G20.13,I10)"
        FMW_I_3F_2I            = "(I10,1P3G20.13,2I10)"
        FMW_I_3F_3I            = "(I10,1P3G20.13,3I10)"
        FMW_3I                 = "(3I10)"
        FMW_3I_A               = "(3I10,A)"
        FMW_3I_F               = "(3I10,1PG20.13)"
        FMW_3I_F_I_F           = "(3I10,1PG20.13,I10,1PG20.13)"
        FMW_3I_F_3I_F          = "(3I10,1PG20.13,3I10,1PG20.13)"
        FMW_4I_F               = "(4I10,1PG20.13)"
        FMW_4I_X_I_2X_F        = "(4I10,10X,I10,20X,1PG20.13)"
        FMW_4I_2X_2F           = "(4I10,20X,1P2G20.13)"
        FMW_4I_4X_F            = "(4I10,40X,1PG20.13)"
        FMW_5I_F               = "(5I10,1PG20.13)"
        FMW_7I_2F              = "(7I10,1P2G20.13)"
        FMW_I_3F               = "(I10,1P3G20.13)"
        FMW_I_4F               = "(I10,1P4G20.13)"
        FMW_I_2F_2I            = "(I10,1P2G20.13,2I10)"
        FMW_I_2F_3I            = "(I10,1P2G20.13,3I10)"
        FMW_I_2F_3I_F          = "(I10,1P2G20.13,3I10,1PG20.13)"
        FMW_I_4F_I             = "(I10,1P4G20.13,I10)"
        FMW_4I_F_4I            = "(4I10,1PG20.13,4I10)"
        FMW_I_X_3F_I          = "(I10,10X,1P3G20.13,I10)"
        FMW_I_X_3F_2I          = "(I10,10X,1P3G20.13,2I10)"
        FMW_2I_X_F             = "(2I10,10X,1PG20.13)"
        FMW_2I_2X_3F           = "(2I10,20X,1P3G20.13)"
        FMW_2I_2X_F_3X_I       = "(2I10,20X,1PG20.13,30X,I10)"
        FMW_I_A_3I_X_2F        = "(I10,A,3I10,10X,1P2G20.13)"
        FMW_I_A_4I_2F          = "(I10,A,4I10,1P2G20.13)"
        FMW_I_X_F_4X_F         = "(I10,10X,1PG20.13,40X,1PG20.13)"
        FMW_I_X_2F_3I          = "(I10,10X,1P2G20.13,3I10)"
        FMW_KEY                = "('/',A,'/')"
        FMW_KEY_ID             = "('/',A,'/',I10)"
        FMW_KEY_2ID            = "('/',A,'/',I10,'/',I10)"
        FMW_KEY_2ID_A          = "('/',A,'/',I10,'/',I10,'/',A)"
        FMW_2KEY               = "('/',A,'/',A)"
        FMW_KEY_3ID            = "('/',A,'/',I10,'/',I10,'/',I10)"
        FMW_2KEY_ID            = "('/',A,'/',A,'/',I10)"
        FMW_2KEY_2ID          = "('/',A,'/',A,'/',I10,'/',I10)"
        FMW_2KEY_3ID  = "('/',A,'/',A,'/',I10,'/',I10,'/',I10)"
        FMW_KEY_4ID         = "('/',A,'/',I10,'/',I10,'/',I10,'/',I10)"
        FMW_2KEY_4ID  = "('/',A,'/',A,'/',I10,'/',I10,'/',I10,'/',I10)"
        FMW_3KEY_2ID           = "('/',A,'/',A,'/',A,'/',I10,'/',I10)"
        FMW_2F_2X_I            = "(1P2G20.13,20X,I10)"
        FMW_3F_X_I             = "(1P3G20.13,10X,I10)"
        FMW_3F_2X_I            = "(1P3G20.13,20X,I10)"
        FMW_3F_3X_I            = "(1P3G20.13,30X,I10)"
        FMW_3F_2I              = "(1P3G20.13,2I10)"
        FMW_2I_A               = "(2I10,A)"
        FMW_2I_A_2I            = "(2I10,A,2I10)"
        FMW_2F_6I              = "(1P2G20.13,6I10)"
        FMW_5I_X_2F            = "(5I10,10X,1P2G20.13)"
        FMW_5I_3X_F            = "(5I10,30X,1PG20.13)"
        FMW_7I_X_F             = "(7I10,10X,1PG20.13)"
        FMW_8I_X_I             = "(8I10,10X,I10)"
        FMW_I_A_2I             = "(I10,A,2I10)"
        FMW_I_A_3I             = "(I10,A,3I10)"
        FMW_F_A_2I             = "(1PG20.13,A,2I10)"
        FMW_I_A_2F             = "(I10,A,1P2G20.13)"
        FMW_2I_F               = "(2I10,1PG20.13)"
        FMW_I_A_3F             = "(I10,A,1P3G20.13)"
        FMW_I_A_4F             = "(I10,A,1P4G20.13)"
        FMW_2I_2F              = "(2I10,1P2G20.13)"
        FMW_2I_2F_3I           = "(2I10,1P2G20.13,3I10)"
        FMW_2I_3F              = "(2I10,1P3G20.13)"
        FMW_2I_3F_I            = "(2I10,1P3G20.13,I10)"
        FMW_6I_2F              = "(6I10,1P2G20.13)"
        FMW_2I_F_I_F_2I        = "(2I10,1PG20.13,I10,1PG20.13,2I10)"
        FMW_I_X_F              = "(I10,10X,1PG20.13)"
        FMW_I_X_F_I            = "(I10,10X,1PG20.13,2I10)"
        FMW_I_X_2F             = "(I10,10X,1P2G20.13)"
        FMW_I_X_3F             = "(I10,10X,1P3G20.13)"
        FMW_I_X_4F             = "(I10,10X,1P4G20.13)"
        FMW_4I_2F              = "(4I10,2P4G20.13)"
        FMW_4I_3F              = "(4I10,3P4G20.13)"
        FMW_F_2I_F             = "(1PG20.13,2I10,1PG20.13)"
        FMW_F_2I_F_I_F         = "(1PG20.13,2I10,1PG20.13,I10,1PG20.13)"
        FMW_F_3I               = "(1PG20.13,3I10)"
        FMW_F_4I_2F            = "(1PG20.13,4I10,1P2G20.13)"
        FMW_2F_2I_F            = "(1P2G20.13,2I10,1PG20.13)"
        FMW_2F_2I_F_I          = "(1P2G20.13,2I10,1PG20.13,I10)"
        FMW_2F_2I_2F           = "(1P2G20.13,2I10,1P2G20.13)"
        FMW_2F_I_2F            = "(1P2G20.13,I10,1P2G20.13)"
        FMW_2F_I_2F_I          = "(1P2G20.13,I10,1P2G20.13,I10)"
        FMW_2F_2X_I_F_I        = "(1P2G20.13,20X,I10,1PG20.13,I10)"
        FMW_2F_2X_F            = "(1P2G20.13,20X,1PG20.13)"
        FMW_3I_X_2F            = "(3I10,10X,1P2G20.13)"
        FMW_3I_X_3F            = "(3I10,10X,1P3G20.13)"
        FMW_3I_3X_2F           = "(3I10,30X,1P2G20.13)"
        FMW_F_I                = "(1PG20.13,I10)"
        FMW_F_2I               = "(1PG20.13,2I10)"
        FMW_F_I_F_I_F          = "(1PG20.13,I10,1PG20.13,I10,1PG20.13)"
        FMW_F_I_2F             = "(1PG20.13,I10,1P2G20.13)"
        FMW_2F_I               = "(1P2G20.13,I10)"
        FMW_2F_I_F_I           = "(1P2G20.13,I10,1PG20.13,I10)"
        FMW_F_3X_3I_F          = "(1PG20.13,30X,3I10,1PG20.13)"
        FMW_2I_4F              = "(2I10,1P4G20.13)"
        FMW_2I_F_I             = "(2I10,1PG20.13,I10)"
        FMW_3F_I               = "(1P3G20.13,I10)"
        FMW_3F_I_F             = "(1P3G20.13,I10,1PG20.13)"
        FMW_3F_I_F_I           = "(1P3G20.13,I10,1PG20.13,I10)"
        FMW_3F_3I              = "(1P3G20.13,3I10)"
        FMW_3F_4I              = "(1P3G20.13,4I10)"
        FMW_X_I_4F             = "(10X,I10,1P4G20.13)"
        FMW_4I_2F_I            = "(4I10,1P2G20.13,I10)"
        FMW_F_3X_3I            = "(1PG20.13,30X,3I10)"
        FMW_2F_2I              = "(1P2G20.13,2I10)"
        FMW_2F_3I              = "(1P2G20.13,3I10)"
        FMW_I_X_A              = "(I10,10X,A)"
        FMW_3I_5X_A            = "(3I10,50X,A)"
        FMW_F                  = "(1PG20.13)"
        FMW_2F                 = "(1P2G20.13)"
        FMW_3F                 = "(1P3G20.13)"
        FMW_4F                 = "(1P4G20.13)"
        FMW_4F_I               = "(1P4G20.13,I10)"
        FMW_4F_X_I             = "(1P4G20.13,10X,I10)"
        FMW_4F_2I              = "(1P4G20.13,2I10)"
        FMW_5F                 = "(1P5G20.13)"
        FMW_2A_2I_3F           = "(2A10,2I10,1P5G20.13)"
        FMW_A_3I               = "(A10,3I10)"
        FMW_I_2F               = "(I10,1P2G20.13)"
        FMW_I_2F_I             = "(I10,1P2G20.13,I10)"
        FMW_I_2F_I_2F          = "(I10,1P2G20.13,I10,1P2G20.13)"
        FMW_F_3X_I             = "(1PG20.13,30X,I10)"
        FMW_F_3X_2I            = "(1PG20.13,30X,2I10)"
        FMW_3I_6X_I            = "(3I10,60X,I10)"
        FMW_2I_X_F_4X_I        = "(2I10,10X,1PG20.13,40X,I10)"
        FMW_I_2X_F             = "(I10,20X,1PG20.13)"
        FMW_I_7X_F             = "(I10,70X,1PG20.13)"
        FMW_I_2X_F_4X_I        = "(I10,20X,1PG20.13,40X,I10)"
        FMW_3KEY_3ID           =
     .        "('/',A,'/',A,'/',A,'/',I10,'/',I10,'/',I10)"
        FMW_4KEY_3ID           =
     .        "('/',A,'/',A,'/',A,'/',A,'/',I10,'/',I10,'/',I10)"
        FMW_A_2I               = "(A10,2I10)"
        FMW_A_2I_X_I           = "(A10,2I10,10X,I10)"
        FMW_I_A_5I             = "(I10,A,5I10)"
        FMW_3F_2X_2I           = "(1P3G20.13,20X,2I10)"
        FMW_2I_F_2I            = "(2I10,1PG20.13,2I10)"
        FMW_2I_F_3I_F          = "(2I10,1PG20.13,3I10,1PG20.13)"
        FMW_8I_F               = "(8I10,1P3G20.13)"
        FMW_A_I_2F             = "(A,I10,1P2G20.13)"
        FMW_3X_I_F             = "(30X,I10,1PG20.13)"
        FMW_3X_I_2F            = "(30X,I10,1P2G20.13)"
        FMW_X_I_3F_2I          = "(10X,I10,1P3G20.13,2I10)"
        FMW_2I_2F_I_F          = "(2I10,1P2G20.13,I10,1PG20.13)"
        FMW_2I_F_2I_X_I        = "(2I10,1PG20.13,2I10,10X,I10)" 
        FMW_F_2I_F_X_I_F       = "(1PG20.13,2I10,1PG20.13,10X,I10,1PG20.13)"
        FMW_9A_I                = "(90X,I10)"
        FMW_2I_F_2I_3A_I        = "(2I10,1PG20.13,2I10,30X,I10)"
        FMW_2I_F_3I_F_I         = "(2I10,1PG20.13,3I10,1PG20.13,I10)"
        FMW_2I_F_2I_2A_I        = "(2I10,1PG20.13,2I10,20X,I10)"
        FMW_2I_F_2I_F           = "(2I10,1PG20.13,2I10,1PG20.13)"
        FMW_2I_F_2I_F_I         = "(2I10,1PG20.13,2I10,1PG20.13,I10)"
        FMW_F_I_2F_I            = "(1PG20.13,I10,1P2G20.13,I10)"
        FMW_4I_X_I              = "(4I10,10X,I10)"
        FMW_F_I_X_F_I_F        = "(1PG20.13,I10,10X,1PG20.13,I10,1PG20.13)"
        FMW_F_I_X_F_I           = "(1PG20.13,I10,10X,1PG20.13,I10)"                
        FMW_3F_X_I_F            = "(1P3G20.13,10X,I10,1PG20.13)"
        FMW_I_2X_4I             = "(I10,20X,4I10)"
      ENDIF
C-----
      RETURN
      END

